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SEQ 0002 



ADC IS AN lOMQO THAT EXERCISES THE ADVll ANQLOG MODULE* THIS 
MODULE REQUIRES ONLY AM ANOLOG GROUND OH CHANNEL ZERO IN ORDER TO 
BE RUN* HOWEVER! WITH SPECIAL SETUP* MORE OPTIONS CAN BE CHOSEN, 
ONE OPTTON IS THE USE OF THE KWV11 (REAL TIME CLOCK) DEVICE. 
THIS OPTION ALLOWS EXERCISING THE ADV1 I ASYNCHRONOUSLY WITH THE 
LST-U CPU* THAT IS* IDV11 CONVERSIONS WILL BE STARTED AT RANDOM 
TIMES TO ALLOW FOR MAXIMUM BUS NOISE DURING THE CONVERSION. IF 
THIS OPTION IS SELECTED* YOU MUST DESELECT KWE FROM A DEC/X11 
RUN. WITH NORMAL OPERATION* RMS NOISE AND PEAK NOISE ARE SAMPLED 
ON CHANNEL ZERO AND COMPARED AGAINST A LIMIT. WITH THE SECOND 
OPERATION OPTION* MORE CHANNELS MAY BE SPECIFIED TO RUN THE NOISE 
TESTS ON. THE THIRD OPTION ALLOWS FOR SAMPLING OF ONE TO ALL THE 
CHANNELS OF THE ADV11. A CHECK IS MADE TO SEE THAT THE INPUT 
VOLTAGE REMAINS STABLE WITHIN AN ALLOWED TOLERANCE. LOCATIONS 
WITHIN THIS MODULE ARE PROVIDED TO CHANGE ANY LIMIT* OR TO FORCE 
ANY VALUE* 



TYPEOUT OF 



2.0 REQUIREMENTS 



HARDWARE? ONE ADV11 

ONE BERG CONNECTOR (OPTIONAL) 
ONE KWVU (OPTIONAL) 

storage:: adc requires: 

1. DECIMAL WORDS: 933 

2. OCTAL WORDS: 1645 

3. OCTAL BYTES: 3512 



3.0 PASS DEFINITION 

ONE PASS OF THE ADC MODULE CONSISTS OF GENERATING 8244( DECIMAL) 
INTERRUPTS (CONVERSIONS ) . 

4.0 EXECUTION TIME 

ONE PASS OF THE ADC MODULE RUNNING ALONE TAKES APPROXIMATELY ONE 

MINUTE. 
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5.0 cqwf iguration requirements 
default parameters: 

de? adr2 170400, vector: 400, br1: 6 
devcnt: 1, sri: 
required parameters: 
none if sri=i 

if sri sits 1 2=1 then see operation options 

6.0 device/option setup 

sr1=000 am anolog ground must be put on cr. 0. 

sri 8it0=1 the kwvu option must be connected 
to the adv11 option. 

sri bit1=1 all channels specified must have 

an anolog ground. 

7.0 module operation 

1. (start) bit exercise csr 

2. set test channel to zero 

3. crestrt) preform rms noise check on specified channel. 

(ADRMS1) 

ME FIRST USE SAR TO FIND THE DAC VALUE THAT PRODUCES A 16/84 
SPLIT FOR THE LEFT BOUNDARY OF NOISE. THEN WE USE SAR TO 
FIND THE DAC VALUE THAT PRODUCES A 84/16 SPLIT FOR THE RIGHT 
VALUE. ME THEN SUBTRACT THE TWO DAC VALUES AND WE HAVE A 
VALUE FOP THE 68% AREA OF NOISE (RMS). IT IS THEN COMAREO 
AGAINST THE ALLOWED LIMIT TO SEE IF EXCESSIVE NOISE IS ON THE 
CHANNEL. 

4. (ADPK1) PREFORM PEAK NOISE CHECK ON SPECIFIED CHANNEL. 
9. (ADPK1) THIS IS A PEAK NOISE TEST. 

WE FIRST USE SAR TO FIND THE DAC VALUE THAT PRODUCES A .61 
SPLIT FOR THE LEFT BOUNDARY OF NOISE. THEN WE USE SAR TO 
FIND THE DAC VALUE THAT PRODUCES A .6% SPLIT FOR THE RIGHT 
BOUNDARY. WE THEN SUBTRACT THE TWO DAC VALUES AND WE HAVE A 




# 
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VALUF OF 98* AREA OF MOISF (PEAK). IT IS THEM COMPARED 
AGAINST THE ALLOWED LIMIT TO SEE IF EXCESSIVE MOISE IS ON THE 

PAGE 4 

CHANNEL* 

5» IF MULTIPLE CHANNELS ARE SELECTED FOR NOISE TESTING TEST NEXT 
CHANNEL/ IF SINGULAR RET EST CHAN. 0* 

6* IF HULTI-CHANNFL SAMPLING IS SELECTED, TAKE SAMPLES ON EACH 
CHANNEL SPECIFIED-, AND COMPARE THE AVERAGE OF THE SAMPLES 
AGAINST THE OLD AVERAGE FOR THE CHANNEL. IF THE DIFFERENCE 
IS GREATER THAN THE TOLERANCE, REPORT THE DATA ON THAT 
CHANNEL. 

7* REPORT END PASS, 

8. ( S A R ) SAR IS A SUCCESSIVE APPROXIMATION ROUTINE. IT IS USED 
TO FIND A DAC VALUE THAT PRODUCES A DESIRED SPLIT. IT DOES 
THIS BY TRYING A DAC VALUE AND TAKING 512 CONVERSIONS ON THE 
A/D. IF THE AMOUNT OF THE SAMPLES IS LOWER THEN SPECIFIED IT 
INCREASES THE DAC VALUE, IF THE AMOUNT OF SAMPLES IS HIGHER 
THEN SPECIFIED, IT DECREASES THE DAC VALUE. IF THE END DAC 
VALUE IS EITHER 000 OR 377 MS HAVE A "WARP AROUND" ERROR* 
THIS OCCURS &THEN WE ARE UNABLE TO ADJUST THE DAC TO PRODUCE A 
DESIRED SPLIT, AMD INDICATES EXCESSIVE NOISE ON A CHANNEL. 

9. (RANDY) THIS IS A RANDOM NUMBER GENERATOR. IF THE KWV11 
CLOCK OPTION IS SELECTED WE GET THE NUMBER THAT WE PUT INTO 
THE CLOCK PRESET REGISTER FROM THIS ROUTINE. 
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8.0 OPERATION OPTIONS 



1. VALID SRI VALUES 

SRI BIT ENABLE/DISABLE FUNCTION 

INHIBIT USE OF CLOCK OPTION. 

1 ENABLE USE OF CLOCK OPTION. NOTE: IF 

ENABLED * YOU MUST DESELECT KIEA FROM 
DSC/X11 RUN. 

1 INHIBIT SAMPLING OTHER CHANNELS FOR 

STABLE INPUT. 

1 1 ENABLE SAMPLING CHANNEL ZERO THROUGH 

CHANNEL SPECIFIED BY CLSTCH FOR STABLE 
INPUT (♦-) TOLERANCE SPECIFIED BY OFF ALL 

2 USE CHANNEL ZERO ONLY FOR NOISE TESTING. 

2 1 USE CHANNEL ZERO THROUGH THE CHANNEL 

SPECIFIED IN NLSTCH FOR NOISE TESTING. 

2. THE FOLLOWING ARE LOCATIONS WITHIN THIS NODULE THAT ENABLE 
THE USER TO CHANGE LIMITS AND SPECIFY CHANNELS. 

LOCATION FUNCTION 

ARMLTM SPECIFIES MAXIMUM LIMIT FOR RMS NOISE. MAY 

BE CHANGED TO ZERO TO FORCE TYPFQUT OF RMS 
NOISE ON A CHANNEL RUNNING IN A SYSTEM 
ENVIRONMENT. 

4PKLIM SPECIFIES MAXIMUM LIMIT FOR PEAK NOISE. MAY 

BE CHANGED TO ZERO TO FORCE TYPEOUT OF PEAK 
NOISE ON A CHANNEL RUNNING IN A SYSTEM 
ENVIRONMENT. 

CLSTCH IF SRI BIT1=1, USED TO SPECIFY END CHANNEL 

FOR SAMPLING STABLE INPUT. 

OFF ALL IF SRI BIT1=1, USED TO SPECIFY TOLERANCE OF 

STABLE " 

f, 000002". 



STABLE CHANNEL. PRESET BY MODULE TO 

"doc 



NLSTCH 166 IF SRI 8IT2=1 € USED TO SPECIFY END CHANNEL 

FOR NOTSE TESTING. 



jjllll. 
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9.0 NON-STANDARD PRINTOUTS 



I * IF A CHANNEL HAS EXCESSIVE RMS NOISE, IT REPORTS IT IN AH 
ERROR CALL AND A MSGN CALLS 

rex AMPLE) 

ON CH. 00 A/D RMS NOISE=0«52 LS3 (LIMITS. 25LSR) 

2, TF A CHANNEL HAS EXCESSIVE PEAK NOISE, IT REPORTS IT IN AN 

ERROR CALL AND A MSGN CALL? 

( EXAMPLE) 

ON CH« 00 A/D PEAK NQISE=2. 57LS8(LIMIT=2.00LSB) 

3. IF THERE IS AN EXCESSIVE AMOUNT OF NOISF SO THAT THE DAC 

CANNOT BE ADJUSTED, TT REPORTS IT IU AN ERROR CALL AND A MSGN 
CALL: 

(EXAMPLE) 

PEAK WRAPAROUND ERROR ON CHAN, 00 

4» TF A CHANNEL IS FOUND TO RE UNSTABLE IN STABLE INPUT 
SAMPLEING, IT REPORTS IT IN A MSGN CALL: 

(EXAMPLE) 

ON CHAN 14 OLD AVERAG£=4066 NEW AVFRAGF=4000 
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S 150 0007 



000000" 

Bill: 

000010* 
000012" 
000013* 
000014' 

888818= 

000022* 
000024- 

§§881§" 

000032- 
000034* 

000036" 
000040" 
000042" 
000044- 

888858." 

000052' 

888832= 

000056- 
000060- 
000062' 
000064- 
000066- 
000070- 

msw- 

000076- 
000100- 
000102- 

888J83-' 

000104" 

oooioe - 



000106" 
000110' 
000112- 
000114- 
000116- 
000120- 



°< 2 m 

170400 
0004gg 

loo 
0800U 

000000 
000000 
000000 

140000 
000274- 

milf 

000001 
000000 
000000 
000000 
000000 
00QQ00 
000000 
000000 

000000 

888888 

000000 
000000 
000000 
000000 
000000 

888888 

000000 

000000 

00000Q 

000000 

001272- 

000000 

000000 

000000 



! 

.TITLE ADCB DEC/X11 SYSTEM EXERCISER MODULE 
DDXCOM VERSION 6 23-MAY-78 

• *********'i§*'**** i I*'************************* 

BEGIN: 



**************************** 



041103 



040 




« ********* 
STAT: 140000 

init: start 
spoint: hodsp 
pascnt: o 
icont: ' 



iSHBTi 8 

HRDCNT: 

sofpas: 6 

hropas: o 

syscnt: o 

rannum: o 

CONFIG 
RES1: 
RES2: 
SvrO: 
svri: 

SVR2: 

SVR3: 



SVR5: 
SVR6 : 
csra: 

SB ADR: 

ACSR: 

WASADR: 

astat: 

errtyp: 

ASB: 

AVAS: 

RSTRT: 

wdto: 

WDFR: 

intr: 






OPEN 
OPEN 
OPEN 
OP EM 
OPEN 
OPEN 
OPEN 
OPEN 

OPEN 

OPEN 

OPEN 

OPEN 

RESTRT 

OPEN 

OPEN 

OPEN 



JMODULE 



**************! 



USED TO KEEP TRACK OF WBUFF USAGE 

1ST DEVICE ADDR. 

1ST DEVICE VECTOR. 

1ST RR LEVEL. 

2ND RR LEVEL. 

DEVICE INDICATOR 1. 

SWITCH REGISTER 1 

SWITCH REGISTER 2 

SWITCH REGISTER 3 

SWITCH REGISTER 4 

************************************** 
STATUS WORD. 
MODULE START ADDR. 
MODULE STACK POINTER. 
PASS COUNTER. 

# OF ITERATIONS PER PASS=1 
LOC TO COUNT ITERATIONS 

LOC TO SAVE TOTAL SOFT ERRORS 
LOC TO SAVE TOTAL HARD ERRORS 
LOC TO SAVE SOFT ERRORS PER PASS 
LOC TO SAVF! HARD ERRORS PER PASS 

# OF SYS ERRORS ACCUMULATED 

HOLDS RANDOM # WHEN RAND MACRO IS CALLED 

RESERVED FOR MONITOR USE 

RESERVED FOR MONITOR USE 

RESERVED FOR MONITOR USE 

LOC TO SAVE RO. 

LOC TO SAVE PI. 

LOC TO SAVF R2. 

LOC TO SAVE R3. 

LOC TO SAVE R4. 

LOC TO SAVE R5. 

LOC TO SAVE R6. 

ADDR OF CURRENT CSR. 

ADDR OF GOOD DATA, OR 

CONTENTS OF CSR. 

ADDR OP BAD DATA, OR 

STATUS REG CONTENTS. 

TYPE OF ERROR 

EXPECTED DATA. 

ACTUAL DATA. 

RESTART ADDRESS AFTER END OF PASS 
WORDS TO MEMORY PER ITERATION 
WORDS FROM MFMORY PER ITERATION 
« OF INTERRUPTS PER ITERATION 
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332 
333 

m 
m 

338 
339 
340 
341 
342 
343 
344 
345 
346 
347 

m 

350 
351 

m 
in 

356 
357 
358 
359 
360 

hi 

363 
364 
365 
366 
367 
368 
369 
370 
371 
372 

111 

m 

377 
378 
379 
380 
381 
382 
383 
384 



000122- 
000224" 



000224- 

000226- 
000230' 



000232- 
000234- 
000234- 



000236- 
000240- 



000242- 
000244- 
000246' 
000250- 
000252- 
000254- 
000256- 
000260- 
000262- 
000264- 
000266' 
000270" 
000272" 



000274" 
000302" 
000310- 
000316- 
000322" 
000326- 
000332" 
000336" 



000342' 
000350* 



000000 
000000 
000002 



170400 
170402 



170420 
170422 



000000 

oooooo 

000000 

oooooo 
oooooo 
oooooo 

000062 

oooooo 

000310 

oooooo 
oooooo 
oooooo 
oooooo 



2767 
2767 

mi 

0067 
12700 
0067 



104421 
002740- 



idnum: 120 
MODSP: 

• ******************************************** 



020064 
013000 

mn 

77704 

i#8H 

177722 



17 

hi 



177616 
177604 
177600 



000000- 000256' 



MODULE IDENTIFICATION NUMBRR=120 

********************** 



;*OPTIONAL USER SUPPLIED IN 

CLSTCH: o WORD ;USFR SUPPLIED LAST SAMPLED CH 

NLSTCH: .WORD ;USER SUPPLIED LAST NOISE CH. 

OFF ALL: . WORD 2 ;USFR SUPPLIED TOLERANCE FOR SAMPLE 



adsr: 

dac: 

ADBR: 



ASR: 

abr: 



;*RFGISTER AND VECTOR ADDRESS 

CwQRD 170400 ;A/D CSR ADDRESS 

.WORD 170402 ;DAC (WRITE ONLY) AND BUFFER REG (READ ONLY) 

, THE FOLLOWING ARE KW11K ADDRESSES IF A KW11K EXISTS. 



• WORD 
.WORD 



170420 
170422 



;CLOCK A CSR. 

JCLOCK A PRESET BUFFER. 



;* 

;*FLAGS, 



COUNTERS AND OTHER REGISTERS 



who: 
intflg: 


.WORD 





.WORD 





FRED: 


• WORD 





edge: 


• WORD 
.WORD 





TMP: 





arhx: 

ARMLIM: 


.WORD 





• WORD 


50. 


apkx: 


. WORD 





APKLIM: 


.WORD 


200. 


ncch: 


.WORD 





cch: 


.WORD 





passcnt: 


• WORD 





tempi: 


.WORD 






START : MOV 
MOV 
MOV 
MO V 
MOV 
ADD 
MOV 
CLR 



m 

#56 

ADDk,ku 



8244., INTR 
5632., WDTO 
5632., WDFR 
DDR, RO 



;0=RMS NOISE, 1=PEAK NOISE 

;USFD IN LOGIC TEST TO INDICATE AN A/D INTR. 

;USED TO HOLD CURRENT DAC VALUE. 

JHOLD CURRENT EDGE VALUE. 

/TEMP WORKING AREA. 

;USED TO HOLD RMS NOISE VALUE. 

?RMS NOTSE LIMIT. 

?USED TO HOLD A/D PEAK NOISE VALUE. 
;A/D PEAK NOISE LIMIT. 
/CURRENT NOISE CHAN. 
JCURRF.NT SAMPLE CHAN. 
;PASS CMT. 

;temporary STORAGE FOR ASCII CONVERSION 



;B244 INTERRUPTS /ITER AT ION 
;5632 WORDS TO MEM/ITERATION 
;5632 WORDS FROM MEM/ ITEARTTON 
/ GET BASE ADDR OF A/D. 
;FIX A/D CSR ADDR. 
/BUFFER REG=CSR+2. 
;FIX BUFFER REG ADDR. 
/CLEAR 1ST CHAN. FOR NOISE. 



• **************** 



********************************************** 
>CONVFRT ARMLTM TO ASCII AND 
;STORE AT DECTM 

8TOD$, BEG IN, ARMLIM, DECIM 

j ************************************************************* 
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385 
386 
387 



390 

395 
396 
397 
398 

111 

ill 

409 
410 
411 

11! 

415 
416 
417 
418 
419 



000352* 116767 002364 002571 

stem?!? mm mm 



000374* 
000402' 



000000" 000262* 



000404* 116767 

mm- lit?!? 



hi! 



000426* 005777 177600 



000432* 

mm- mm 

000442* 032767 
000450* 001402 

000452* 005777 



02551 



000001 177346 



MOVB 
MOVB 



DBCIM*2,P7 
pBCIM*3,P7*7 



/now we will put it 



, ;INTO THE ASCII 

MOVB DECIM*4,P7+3 /MESSAGE THAT WE TYPE OUT. 

j ************* ******* ********************* ****** ************** 

CQNVE — ~ 

; STORE 



; CONVERT APKLTM TO ASCII AMD 
" AT DECTH 



BTOD$,BEGIN,APKLIM,DEClM 

2 ******************************************** ***************** 

DBCIM*2,P8 



MOVB 

MOVB 
MOVB 



/NOW HE WILL PUT IT 

_ _ ;IHTO THE ASCII MESSAGE 

DECIM*4,P8+3 /THST WE TYPE OUT. 



/♦LOGIC TEST fl 

/♦IN THIS TEST WE WILL SEE IP THE A/0 RESPONDS TO ITS 
/♦ADDR. IP NOT, A DEC/Xll "SYS ERROR..." WILL OCCUR 
/* 



gADSR 



; ADDRESS THE A/D 



/♦LOGIC TEST |2 

/♦IN THIS TEST WE WILL SEE IF THE CLOCK RESPONDS TO ITS ADDR, ONLY 
/♦IF THE CLOC* OPTION IS SELECTED BY SRl. 



BREAKS, BEGIN 
BREAKS, BEGIN 
flI? ' 

BEQ 



#BIT0,SR1 



LOG3 
gASR 



;temporary return to monitor.... 

/THEN CONTINUE AT NEXT INSTRUCTION. 
;IS CLOCK OPTION SELECTED? 
;BR IF NOT TO NEXT TEST. 

;CLOCK WAS SELECTED, WILL IT RESPOND? 



1 

m 

433 

ill 

m 
m 

440 



000470* 012777 



000476* 104407 
000502* 104407 



000506 
000512* 00, 

000530* 005077 



hoi' 
ooo 



562 
,-554' 
00101 



000000* 
000000* 



0506* 005767 177532 



17?iil 
177476 



177320 
177534 



mm 



;*LOGIC TEST #3 

/♦IN THIS TEST WE WILL SEE IF THE A/D WILL INTERRUPT. 



CLR 
MOV 

MOV 



#l$,gVECTOR 
#10l # gADSR 



BREAKS, BEGIN 
BREAKS, BEGIN 



TST 
BNE 
MOV 
MOV 
CLR 



INTFLG 
LOG4 

ADSR,CSRA 
gADSR, ACSR 

gADSR 



; CLEAR A/D DID INTR. FLAG. 

/SET UP VECTOR ADDR. 

/START A CONVERSION, SHOULD INTERRUPT. 
/ BEFORE BREAK TIME IS OVER. 

/TEMPORARY RETURN TO MONITOR. ... 
/ THEN CONTINUE AT NEXT INSTRUCTION. 

/DID THE A/D INTERRUPT? 
J IF SO, NEXT TEST 

/SET ADDR. OF AD CSP FOR ERROR TYPEOUT. 
/RECORD CONTENTS OF CSR. 
/STOP A/D 



000534- 


012767 


000023 177344 


000542* 


104405 


000000* 000000 


000550* 


104410 


000000* 


000554* 
000560- 
000564- 
000570' 


005077 
005777 
005267 
000002 


177452 
177450 
177454 



000001 177216 LOG4: 
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ill 

xa 

ih 
m 
m 

455 
456 
457 
458 
459 
460 
461 

466 

m 

471 

tt5 

474 

ffl 

477 
478 
479 
480 
481 

nl 

m 

3§S 

m 

490 
491 
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000572* 032767 
000600* 001451 

mm- mm 

ogo6i S : l\\m 



00062 
000626* 



05000 



mm 

000011 



uiSlf: 18338? 

000636- 105777 

wx&- mm 

000646* 001367 

§§§ii§* 017767 
000656* 005077 

mm- mm 

000670- 016767 
000676- 017767 

"-I70 



000704- 
000712- 



012767 
104405 



177374 



177362 
177354 



177336 
177330 
000046 



000720- 104410 000000' 



ill 



mm 

177412 



177226 



177202 

mm 



oooooo- 000000 



MOV #23,ERRTYP 
******************** 



ENDS, BEGIN 
5*A/D SHOULD 



TST 
INC 
RTI 



§AD8R 
INTFLG 
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/DEV FAILED TO INTERRUPT 
******************************************** 

/A/D FAILED TO INTERRUPT 

******* ************************** ******** * ** 

/ 

HERE. 

/STOP A/D. 

/CLEAR CSR BIT07. 

/ INDICATE THAT IT DID INTR. 

/EXIT INTR. 



/♦LOGIC TEST #4 
/♦THIS TEST WILL ONLY 



♦TRIGGER A CONVERS 

IffiSh" 



BE DONE IF THE CLOG* OPTION IS SELECTED 
SEE T l| TH,| OVERFLOW OF CLOCK 1 WILL 



BIT 

BEQ 

MOV 
MOV 
MOV 
CLR 



/IS TL 
/IF NOT 



E CLOCK OPTION SELECTED? 
" GOTO NEXT TEST. 



a" 



BREAKS , BEGIN 
BREAKS, BEGIN 
TSTB 

Wen 

BNE 

MOV 
CLR 



TSTB 
BMI 



gADSR 
L0G5 



MOV ADSR,CSRA 
MOV gADSR,ACSR 

?ft******i**.*l*n* 



, s p If SIeOT ISIblWPd. 

/START CLOCK, 1HHZ, GO. 
/SET FOR DELAY LOOP. 



/TEMPORARY RETURN TO MONITOR. ... 
/THEN CONTINUE IT NEXT INSTRUCTION. 
/IS THE CLOCK OVERFLOW SET? 

/NO-CONTINUE DELAY. 

/ RECORD CONTENTS OF CLOCK CSR. 
/CLEAR THE CLOCK. 

/IS DONE FLAG SET? 
/IF YES NEXT TEST. 
/IF NOT, ERROR 
/RECORD A/D CSR ADDR. 
/RECORD CONTENTS OF A/D CSR. 



« *************************************************************** 

HRDERS, BEGIN* NULL /CLOCK OVERFLOW FAILED TO TRIGGER A/D CONVERSION 

• *************************************************************** 



/FOR THIS ERROR YOU MIGHT CHECK 
/TO SEE IF A OVERFLOW IS WIRED TO 



ENDS, BEGIN 

;* 



/A/D INPUT. 

/DROP THIS 
/CAN T CONTTNffg IF 



FATAL ERROR. 
OVERFLOW DOESN'T TRIGGER THE CONVEPST 
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OOOOOO* 



Joidl_ 
000105 
OOOOOO' 
177250 



}77|40 177 
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;*LOGIC TEST *5 
J* IN THIS TEST WE CHECK THAT WHEN CHANNEL 
;*«ITH THE MAINTENANCE BIT SET THE RESULT 



177042 
177256 



177076 



. .232 
000026 



OOOOOO * OOOOOO 



OOOOOO* 000760* 



001104* 176756 

mm- 1771,2 

007777 177162 
000000* OOOOOO 



000004 000000* 001044* 



1$: 



IS: 



BREAKS, BEGIN 
BREAKS, BEGIN 
TST SADBR 
MOV I2S,gVECT0R 
MOV |l05,<aADSR 
EXITS/ BEGIN 



i TEMPORARY RETURN TO MONITOR.... 
;THEN CONTINUE AT NEXT INSTRUCTION. 
;FALSR READ OF A/D BUFFFR 



;SET UP 
JSTART A 



INTERRUPT VECTOR 
/D WITH MAINTENANCE SET 



TST 



AD BR 



iEXIT , 
;TEST FOR ALL O'S RESUL. 
;NOTE: INTERRUPT SERVICE WILL 



TO MONITOR. 
O'S RESULT 



MODULE WAIT FOR INTERRUPT. 



;BEGIN USING HERE AFTER A PIRQ. 
LOGS ; IF RFSULT IS ALL O'S. GOTO NEXT TEST 

ADSR/CSRA ; RECORD A/D CSR ADDRESS 

MADSR,ACSR ; RECORD CONTENTS OF A/D CSR 



BEQ 
MOV 
MOV 

«*L_ 

HRDERS, BEGIN, NULL 

******************* 



****************** 



JFATLED TO GET ALL O'S RESULT FROM CONVERSION 

******************** ft********************* 



;*A/D INTERRUPTS TO HERE 

flRQS, BEGIN, IS ; QUEUE UP TO CONTINUE AT IS AND RTI 



TEST WE CHECK THAT WHEN CHANNEL 1 IS CONVERTED 
B MAINTENANCE BIT SET THE RESULT IS 7777 



;* 

;*LOGIC TEST #6 
;*IN THIS TEST 
;*WITH THE MAII 

L0G7 

ADSR/CSRA ; RECORD A/D CSR ADi 

@ADSk, ACSR ; RECORD CONTENTS 0! 

26 f ERRTYP ; A/D CONV OUT OF SI 



INTERRUPT VECTOR 
A/D WITH MAINTENANCE SET 



CMP 
BEQ 
MOV 
MOV 
MOV 



MODULE WAIT FOR INTERRUPT. 



?SET UP 

JSTART A. _ 

J EX IT TO MONITOR. 

/TEST FOR ALL 1 'S RESULT 

;IF RFSULT IS ALL l'S, GOTO NFXT TEST 
._ ___ ADDRE § S 

A/D CSR 
EC 

" ' ****************** 



,_. f tKKTfi' ;a/d __. _. 

• ***************************************** 

HRDERS, BEGIN, NULL /FAILED TO GET ALL l'S RESULT FROM CONVERSION 

• *************************************************************** 

;*A/D INTERRUPTS TO HERE 



PIRQS, BEGIN, IS 



; QUEUE UP TO CONTINUE AT IS AND RTI 



;*LOGIC TEST |7 

;*IN THIS TEST WE WILL SAMPLE ALL CHANNELS SELECTED 
;*F0R TEST AND STORE AWAY THEIR RESULTS. 



ADCB DEC/Xll SYSTEM EXERCISER MODULE 
XADCBO.Pll 12-OCT-78 11:44 
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mm- 

001116' 

881l«: 

001132' 
001136' 

001144' 

mm- 
mm- 

001172- 
0012QQ- 
001204' 
001204' 



001210- 
001212- 

001214- 

881115- 

001222- 



104407 000000* 

104407 000000* 

88IZ 77 Mtt 

005067 177130 

012777 001264* 176644 



012700 177770 



001236* 
001242- 

miir- 

001260- 
001262- 



177036 



005^67 172Q24 

Jnh 

503731 
000403 



177072 



177110 

.-0367 177066 

052767 000101 172060 

016777 177054 177032 

104400 000000* 

067701 177024 



005200 
100767 



006201 
006201 

°67ol 
8J6302 
010162 



IS: 



gj>6767 177020 176756 
_9J7J§ 177010 176744 



BREAKS, BEGIN 

BREAKS, BEGIN 

TST g ADBR 

CLR BADSR 

CLR CCH 

MOV »4$,gVECTOR 

MOV #-8.,R0 
CLR Rl 
MOV CCH, TMP 

SWAB TMP 

BIS #BIT6!BIT0,TMP 
MOV TMP/0ADSR 
EXITS, BEGIN 



ADD 



INC 
BMI 

ASR 
ASR 
ASR 
ADC 
MOV 
ASL 
MOV 

INC 
CMP 
BLE 
CMP 
BLE 
BR 



; TEMPORARY RETURN TO MONITOR.... 
;THEN CONTINUE AT NEXT INSTRUCTION, 
f FALSE READ OF A/D BUFFFR. 
JCLEAR A/D-S CSR 
;START ON CH. 0. 
;SET UP INTR. VECTOR. 

JSET TO DO 8 CONVERSIONS. 
;R1 WILL CONTAIN SUM OF CONVERSIONS. 
/GET CH. NUMBER. 
JPUT IN CORRECT CSR POSITION. 



{4ADBR,R1 



n 

Rl 
Rl 
Rl 
Rl 

CCH,R2 
R2 

R1,RECSAM(2) 
CCH 

CCH/NLSTCH 

CCH, CLSTCH 
IS 

RESTRT 



;ADD TNTR. ENABLE AND GO 
J START A/D. 

;FXIT TO MONITOR. 

;SUM THIS RESULT. 
; NOTE INTR SERVICE WILL 
/BEING USE HERE AFTER A PI 
?DONE 8 CONVERSIONS? 

;no - do another one. 
;now we must 

/CALCULATE THE AVERAGE 
?OF THE SAMPLES THAT 
;WE JUST TOOK. 
;PICK UP CH. NUMBER. 
?USE IT AS AN OFFSET. 
JSTORE THIS AVERAGE. 

; UPDATE CH. NUMBER. 

; DONE ALL NOISE CHANNELS? 

; NO-DO NEXT ONE. 

;DOSE ALL STABLE CHS? 

;NO -DO NEXT ONE. 

>YES-GOTO NOISE TESTS. 



MODULE WAIT FOR INTERRUPT. 



;*A/D INTERRUPTS TO HERF 



001264* 000004 000000' 001204' 



001272' 
001276' 



105077 176734 
)05067 176766 



PTR9$,BFGIN,3$ 



RESTRT: CLR 
CLR 



»ADSR 
PASSCNT 



> QUEUE UP TO CONTINUE AT 3$ AND RTI 
; CLEAR A/D'S CSR. 



amv mm 

001312' 116710 



1$: 



MOV 
MOVB 



VECTOR, RO 



Bri;(rO)" ' }hoto priori 

;CALCULATF A/D RMS NOISE USING VERNIER DAC, 



Of§R-|i>DR*. 



INTO VECTOR ADDR. 



ADCB DE 
X AD 1 



C/Xlt SYSTEM EXERCISE 
Pll 12-0CT-78 11:4 

mnv-nmi tm 
mm'- mm m 

001342" 016701 1767 

mill] Ml\ mi 

mi iw " ' 
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OdUJS' i 10 567 

001424- 020567 

mm- mm 

001436" 012767 
001444" 104405 
001452" 104403 



000502 
176626 

kill 



176722 
176710 

176672 
176642 



176442 
000000 
002746" 



ADRMS1: MOV 

MOV 



0^g775 




M0? 
* ***** 

MSGN$,I 



IcCH/fMP 

Jl!)0,TMP 

NCCH,R1 

r|csam<i),edgf 

TMP,»ADSR 

DACt&l 

PC.SAR 

SfiiP 

FRED-RS 
R5, ARMX 
R5« ARMLIM 
A0PK1 

PC,ERCQW 

#3l,ERRTVP 

r*I*** ft ********** 

BE GI N, NOLL 

r **************** 

IPGINrMSGl 



;R0 = 84,13% OF 512 CONVERSIONS 
;GET THE CHAN # 

m ihirmfp. posmo "- 

/PICK UP CH. NUMBER. 

; G?T N e62 E° V AL§i" FOR THIS CH. 
> INDICATE RMS NOISE TEST. 
;CH.»0< AND INTERRUPT ENABLE 
;R1 = ADDRESS OF SAR DAC 

;GET DAC VALUE THAT PRODUCES 16/84 SPLIT 

518*1 ti^HTO* CONVERSIONS 

I GET DAC VALUE THAT PRODUCES 84/16 SPLIT 
;R5 = BREADTH OF NOISE g 68% AREA 
;SAVE FOR DAC BOISE CALCULATIONS 

— RMS LIMIT? 
;IF WITHIN LIMIT THFN CONTINUE AT ADRMS2 
;GET ERROR PARAMETERS 
J ERROR PARAMETERS LOADED BY H .ERCOM w 
;NOISE EXCEEDED 
******* ************ ******* ****** * ******** 



JASCII MESSAGE CALL WITH COMMON HEADER 



^CALCULATE A/D PEAK NOISE USING VERNIER DAC. 



74 176560 
176546 
176514 



001062 

000031 176314 

000000" 000000 

000000" 002766" 

005267 176456 

032767 000004 176176 
001012 

026727 176442 000013 



MOV 

MOV 

SWAB 

BIS 

CLR 

MOV 

MOV 

JSR 

MOV 

MOV 

JSR 

SUB 

MOV 

CMP 

BLE 

JSR 



#509., RO 
I CCH,TMP 
"MP 

•lOOsTMP 

1 HO 

' MP,RADSR 
DAC,R1 

"C,SAR 
~ED#R5 
_,R0 
CtSAR 
r RED#R5 
?5,APKX 
!t5,APKLIM 
ENDP 
%ERCOM 



PC 



MOV #31# ERRTYP 

i ***************** 

HRDERSgBE GIN-NULL 

• **************** 

MSGN$,BEGIN,MSG5 



;FOR FAK OF 2 1/2 SIGMA 

;GET CHAN. NUMBER. 

;PUT IN CORRECT CSR POSITION. 

} ADD TNTR. ENABLE 

; INDICATE PEAK" NOISE TEST. 

;CH.AND INTERRUPT ENABLE, AND CH 

;R1 = ADDRESS OF SAR DAC 

;GET DAC VALUF THAT GIVES .6% LOW COUNT 
;R5 = LEFT BOUNDARY 
;CHANGE SPLIT FOR RIGHT BOUNDARY 
I GET DAC VALUE THAT GIVES .6% HIGH COUNT 
;R5 = A/D PEAK TO PEAK NOISE 
;SAVE FOR DAC NOISE CALCULATIONS 
;< OR = A/D PEAK NOISE LIMIT? 
> BRANCH IF NO ERROR 
;GET ERROR PARAMETERS^ 
; ERROR PARAMETERS LOADED BY "RRCOM*" 
;A/D NOISE LIMIT EXCEEDED 
******************************************* 



****** 



INC 
BIT 
BNE 
CMP 



PASSCNT 
|BIT2,SR 

PASSC1T,£13 



SRI 



; J PEAK NOISE ERROR-SEE NEXT TYPE OUT 
*************************************** 

; ASCII MESS AGF CALL WITH COMMON HEADER 

; UPDATE PASS COUNT. 

; DOING MULTIPLE NOISE CHANNELS? 

;YES - GET THE NEXT ONE 

;DONE ENOUGH PASSES? 



ADCB DEC/X11 SYSTEM EXERCISER MODULE 
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SEQ 0014 



677 

680 
681 
682 



687 
688 



mm- 



001417 
032767 
001013 


000001 


176156 


000167 


177450 




SSi?f? 

101760 
005067 
000755 


USUI 


176346 


176376 




032767 
001505 
005067 


000002 


176120 


176362 




mm 

0050Q3 

811?? 

016701 

j&?H 

010177 
104400 


176356 

OOOOIQ 

001752" 

176332 

000101 
176264 
000000" 


176312 
176060 


000004 


oooooo- 


001760" 


0677Q3 
005300 


176250 





3$: 
4$: 



5$: 
6$: 



7$: 



001365 



001770- 006203 
001772- 006203 
001774" 006203 
001776" 005503 

mm- sum 

002006" 010301 
002010" 16 



6003 003262- 



100001 
005403 
020367 
003426 



8$: 



002026- 104420 000000- 000266- 
002034- 003502- 



BEQ 
BTT 
BNE 



CMP 

BLOS 

CLR 

BR 

BIT 
BEQ 
CLR 

CMP 
BGT 
CLR 
MOV 
MOV 
MOV 
SWAB 
BIS 
MOV 



|BIT0,SR1 



3$ 

is 

ADRMS1 

NCCH 

JCCH,NLSTCH 

NCCH 
IS 

#BIT1,SR1 

EENDP 
CCH 

CCH#CLSTCH 

EENDP 

R3 

#8,,R0 

|6$#|VECT0R 

CCH#R1 



EXITS, BEGIN 



llJIioSR 



; yes-do endpass. 

;are we connected to the kwuk option? 
;if so the 1 min is up on one pass. 

;no do again. 

/point to next ch. 

; exceed last noise ch? 

/no-test this ch. 

/yes - start again on ch. 0. 

;go test ch 0. 

; are we doing voltage sampling? 

j no - end pass! 

; yes - start with ch 0. 

;done all channels? 
;yes - report end pass. 
;r3 will hold sample, 
j set to take b samples 
;set vector for interrupt 
;get ch. number 
;fix right position in csr. 
;add intr. enable and go. 

;START A/D. 

J EXIT TO MONITOR. MODULE WAIT FOR 



PTRQ$,BEGIN,7$ 

; . 



; QUEUE UP TO CONTINUE AT 7$ AND RTI 



ADD 
DEC 
BNE 

ASR 
ASR 
ASR 
ADC 



MOV 
SUB 

BPL 
NEG 
CMP 
BLE 



OTOA$< 

j ***** 



|JDBR,R3 
5$ 



H,R0 



,R1 

CSAM(0),R3 



,OFFALL 



/NO - DO NEXT ONE. 

;YES NOW WE 
;MUST DIVIDE BY 
;8 TO GET THE 
/SAMPLE AVERAGE. 
;NOW GET CH. NUMBER 

;form an offset 

/SAVE NEW SAMPLE VALUE. 
/GET THE DIFFERENCE BETWEEN 
; AND THE NEW ONE WE JUST GOT 
/ IF POSITIVE WE'RE OK. 
/OTHERWISE MAKE IT POSTIVE. 
;IS IT WITHIN TOLERANCE? 
/YES DO NEXT CH 



********************************************************* 

;CONVERT CCH TO ASCII AND 
;STORE AT CHANN 

BEGIN, CCH, CHANN 

********************************************************* 



) 



AOCB QfiC/Jll SYSTEM EXERCISER MODULE 
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721 
722 
723 
724 
725 
726 
727 
728 
729 
730 
731 

w 

734 
735 
736 

m 
m 

741 

HI 

744 
2^5 
746 
747 



751 
752 
753 
754 
755 

m 

758 
759 

W? 

m 

764 
765 
766 
767 

?f« 

770 

Hi 

773 
774 



002036* 016067 



002044' 
002052' 



00206 
00206 



002102* 

002106- 

002112- 

002112- 



104420 
003462- 

010167 

JM«S- 

010160 

104403 

005267 
000167 



003262- 176226 
000000- 000272- 
176212 

000000 ' 000272- 
003262- 

000000- 003024* 

176160 
177572 

oooooo- 
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MOV R FCS AM( ) f TEMPI J GET OLD VALUF 

. ***************************************** 



012702 
005011 

mm 

016711 
005003 
012704 



002116- 

mm- 

002130- 
002134- 
002140- 

smtv 

002146- 
002154- 

002156- 
002164- 

002166- 
002172- 
002176- 

mm- 

002220- 
002226- 
002226- 104400 
002230- 

002230- 000004 000000- 002236' 



)32767 
>01004 

152777 
000420 

004767 
005077 
052767 
016777 
052777 
012777 



176106 
001000 



000001 175642 
000001 176046 



000364 
176040 
177770 

000430 

000040 176012 
000011 176010 



mat 



********************** 



; CONVERT TEMPI TO ASCII AND 
; STORE AT OLDS 

OTOAS, BEGIN, TEMPI, OLDS 

. ******************************************************* 

MOV 



******* 



************* 



R1,TEMP1 s GET NEW VALUE 

« w*irirx«ir****************************************** 

; CONVERT TEMPI TO ASCII AND 

;STORE AT NEWS 

OTOA$, BEG IN, TEMPI, NEWS 

*************************************************************** 



MOV Rl,RECSAH(R0) 
MSGNS, BEGIN, MSG12 



10$: 

EENOP: 

;hsinc 

SAR: 
BIT: 

conv: 



INC 
JMP 



CCH 
4$ 



;PUT NEW INTO OLD. 

; ASCII MESSAGE CALL WITH COMMON 

;LOOK AT NEXT CHAN. 
;GO TEST IT 



ENDITS, BEGIN 

SUCCESSIVE APPROXIMATION AND VERNIER DAC DEFINED IN Rl, 



; S IGNAL END OF ITERATION. 
; MONITOR SHALL TEST END OF PASS 



2S: 

WAINT: 



MOV 
CLR 
CLR 
ADD 
MOV 
CLR 
MOV 



JSR 
CLR 
BIS 
MOV 
BIS 
MOV 



#200, R2 

(Rl) 

FRED 

R2,FRED 

FRED,(R1 ) 

R3 

#512. ,R4 



#177770, RNA 
RNA,»ABR 
#BIT5,@A0SR 
#11,§ASR 



; R2 = MSB OF DAC 

/GET RID OF -ONES- 

; START WITH ZERO DAC 

>TRY THIS BIT 

;LOAD DAC. 

;INIT HIGH COnNT 

;»4 = # OF SAMPLES IN A BURST 



;yes 

;no - set go bit in a/d. 

;GOTO 2$ 

; GET A RANDOM NUMBER. 

;MA*E SURE THE CLOCK'S CSR IS CLEAR. 
; MAKE SURE OF HIGH NUMBER. 
J SET CLOCK PRESET REG. 
;SET OVFRFLOW ENABLE. 
; START CLOCK 



; RETURN TO MONITOR. 



PIRQS, BEGIN, IS 



; QUEUE UP TO CONTINUE AT IS AND RTI 



ADCB DEC/Xll SYSTEM EXERCISER MODULE 
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175772 176004 



175752 
175744 
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.16 
817 
818 
819 
820 
821 
822 

m 

825 
826 
827 
828 
829 
830 
831 
832 



IS: 
2S: 



; RANGE 
; CLEAR 



CMP 
BLO 
INC 
DFC 
BNE 
CMP 
8LE 
SUB 
ASR 
BNE 
TST 
8EQ 
CMP 
BEQ 
RTS 

; S_NI. E .DED_f 5. PRODUCER OF 




OF THE WRAPAROUND DAL 

INTERRUPTS, PRINT MESSAGE AND DROP MODULE. 



;> OR = EDGE? 
; BRANCH IF <EDGE 
;COUNT IF > OR =EDGE 
/COUNT THROUGH BURST 
? BRANCH IF NOT DONE 

; H IGH COUNT > % OF 512 CONVERSIONS? 
? BRANCH TO LAVE BIT IN 
;take BIT OUT 
J NEXT BIT 

; AND GO RESOLVE IT IF NOT DOME 
;CHFCK FOR ALL "ZFROES' 
; BRANCH IF INVALID RESULT 
;CHECK FOR ALL ONES- 
;BRANCH IF INVALID RESULT 
SRETURN TO ADRMS1 OR ADPK1. 
IGH COUNTS SPECIFIED IS OUT OF THE 



000031 175560 

oooooo- 000000 

175702 

000000 - 003006- 



JSR 



BADSR 
PCERCOM 



oooooo- 

175460 



003046' 



1$: 
2$: 



MOV #31,ERRTYP 
******************* 

HRDERS, BEGIN » NULL 
******************* 

TST WHO 

BNE IS 

MS GN$, BEG IN, MSG 11 

BR 2S 

MSGN$ ,B EG IN , MSG 1 3 
INC HRDCNT 
TST (6)+ 



***** 
***** ; 

; 



;STOp a/d 

;GET ERROR PARAMETERS 
FRROR PARAMETERS LOADED BY *»ERCOM w 
A/D NOISE LIMIT EXCEEDED 
*************************************** 

J NOISE TFST WRAPAROUND ERROR 
*************************************** 

SEE WHICH TEST WE WERE DOING. 
WHO=l THEN RMS NOISE TEST. 
ASCII MESSAGE CALL WITH COMMON HEADER 
GO AHEAD. 



; 

;ASCII MESS AGF CALL WITH COMMON HEADER 

} UPDATE THE ERROR COUNT. 

; RESTORE STACK FROM THE JSR PC THAT 

;GOT US TO "SAR". 

; GET NEXT DIRECTIVE. 



;GET THE AVERAGE OF 512 SAMPLES AND THETR COUNT SPREAD 



002372- 
002372* 
002374- 
002400- 
002404- 
002410- 


005000 
012704 
012701 
012702 


001000 
100000 
040000 




aver: 
econ: 


CLR 
MO? 
MOV 
MOV 


RO 

#512, ,R4 

fBITi5,Rl 

#BIT14,R2 


; TNIT RO FOR RUNNING SUM 
;BURST OF 512 CONVERSIONS 
;INIT HIGH COUNT TO NEGATIVE # 
;INIT LOU COUNT TO POSITIVE # 


002410' 
002416' 


83?004 


000001 


175400 




BIT 
BNE 


|BIT0,SR1 


;TS CLOCK SELECTED? 
>YES GOTO HANDLER. 


002420' 
002426' 


052777 
000420 


000001 


175604 




BIS 
BR 


|BIT0,§ADSR 


>NO - SET GO BIT IN A/D. 
?GOTO 2$ 


002430' 
002434' 

mm- 


004767 
005077 
052767 
016777 


000122 
175576 
177770 
000166 


000172 
175564 


IS: 


JSR 
CLR 
BIS 

MOV 


PC, RANDY 
ftASR 

#177770, RNA 
RNA,0ABR 


; GET A RANDOM NUMBER. 

/MAKE SURE THE CLOCK'S CSR IS CLEAR, 

;MAKE SURE OF HIGH NUMBER. 

;SET CLOCK PRESET REG. 



AOCB DEC/Xll SY; 
XADCBO.Pll 1 




8888?? 

oooooo- 
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002554* 



mm 



2S: 

ERINT: 



BIS 

MO? 



EXITS, BEGIN 



000004 
067700 

mm 

027702 

m 

nm 

§2o300 
000207 



oooooo- 

175526 

175520 

175512 
175506 

175500 



.,0054 00 
00004" 




i?IRQ$# BEG IN Jl$ 

DBR 
£ R0 



||DBJ # RO 



og 6 Q oogo^ 



88881S 

8383il mm 



If ' R1 

8ADBR,R1 

2$: CMP §ADBR,R2 

881 1SdBR,R2 

3SS DEC R4 

Hie IS° N 

MOVB R0,R0 

ASH RO 

ADC RO 

ADO R3,R0 

SOB R2,Rl 

RTS PC 

jgenerate a random number 

randy: add rnb,rna 
add rnc, rna 

ADC RNA 

ADD RNA,RNB 

ADD RNC,RNB 

ADC RNB 

ADD RNA, RNC 

ADD RNB/RNC 

ADC RNC 
PC 



RNA: 

RMB: 
RNC: 



1 SET OVERFLOW ENABLE. 
; START CLOCK 



;EXIT TO MONITOR. MODULE WAIT FOR INTERRUPT. 



; QUEUE UP TO CONTINUE AT IS AND RTI 



10 = RUNNING SUM OF DIFFERENCES 
1FFSET BY EXPECTED VALUE 



1 HIGHER THAN PREVIOUS HIGH? 
; LOVER THAN PREVIOUS LOV? 

"N'Ek'E.nLT 

NT THROUGH BURST 



5n 

;cl 

;dq another sample if not do 
> divide sum of differences 



;SIGN EXTEND 
; DIVIDE BY 2 MORE 
; ROUND UP FOR > 1/2 
> OFFSET AVERAGE BY EXPTECTED RESULT 
;R1 = COUNT SPREAD 



; THESE FOLLOW SEQUENCE OF 



INSTRUCTIONS GENERATE 
A RANDOM NUMBER 

13 BE EoIBeD 

INTO THE CLOCK'S PRESET 



; RETURN TO "CONV" 
} RANDOM TO NUMBER A. 
} RANDOM NUMBER B. 
; RANDOM NUMBER C. 



^CONVERT NOTSE RESULT TO DECIMAL 



175224 

_ 5352 175220 

mm 175214 



000000- 000272* 



MOV 
MOV 



ADSR,CSRA . . . _ 

MOV «ADSR,ACSR 
MnV STAT,ASTAT 

MOV R5,TEMP1 JSTACK BINARY NOI! 

.********** ************** ft*** ******* *****' 



;LOAD HEADER FOR ERROPN CALL 



BT0D$,BEGIN,TEMP1,DECIM 



lif?*!* ************ 
; CONVERT TEMPI TO ASCII AND 
;STORE AT DECIM 



002704 
002712 



116767 
116767 



000032 
000025 



MOVB DECIM* 2, VALUE J MOVE CONVERTED VALUES TO ASCII BUFFER 
MOVB DECIM+3,VALUE+2 ;FOR TYPEOUT OF ERROR 
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002720' 116767 000020 000312 
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MOVB DRCIM+4 f VALUE+3 i ON RETURN 

. ************************************************************* 



000000- 000264' 



OTQ*$, BEGIN, MCCH,CH4NN 



; CONVERT NCCH TO ASCII AND 
J STORE AT CHANN 



j ************************************************************** 
RTS PC ; EXIT TO CALLER. 



;ASCII MESSAGES AND POINTERS 



P2 

CHANN+4 

PI 
P4 
P6 

VALUE 

P7 

-1 

P2 

CH ANN*4 

Pt 

n 

VALUE 

P8 

-I 

l\ 

P13 

CHANN+4 



MSG12: PI 



003506- 
177777 



P2 

CHANN+4 
P3 

OLDS+2 
P9 

NEWS+2 
-1 

PI 
P4 

m 

P2 

CHANN+4 

-1 



;ON CHAN 

; (CHAN NUMBER 2 DIGITS) 

; I A/D 

; RMS 

5 NOISE = 

; (CONVERTED BELOW) X.XX LSB (LIMIT = 

; 0.50 LSB) "THIS VALUE If ILL CHANGE IP OPERATOR CHANGES 

; MESSAGE TERMINATOR. 



;ON CHAN 
; (CHAN " 

; i a/d 



NUMBER 2 DIGITS) 



. PEAK 
; NOISE a 

; (CONVERTED VALUE) X.XX LSB (LIMIT = 

" 2.00 LSB) "THTS VALUE WILL CHANGE IF OPERATOR CHANGES 
TE ~"~ 



; MESSAGE TERMINATOR 



% A/D 

PEAK 

WRAPAROUND 

ERROR 

ON CHAN 

(CHAN NUMBER 2 DIGITS) 
MESSAGE TERMINATOR 

% A/D 
ERROR 
ON CHAN 

(CHAN NUMBER 2 DIGITS) 
/OLD VALUE = 
"A/D READING 4 DIGITS 
NEW VALUE = 

"NEW A/D READING 4 DIGI 
MESSAGE TERMINATOR. 

% A/D 
RMS 

ON CHAN 

(CHAN NUMBER 2 DIGITS) 
MESSAGE TERMINATOR. 
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SEQ 0019 



979 
980 
981 
98~ 
98- 
984 
985 
986 
987 
988 



003064' 040445 
003072* 047440 

mm- mm 

003112" 040526 



020075 

m 

120 
000 




0034. . 

mm- 

003502" x _ 

003510" 000000 
000001 



mm 


000040 
044103 


PI : 
pi: 


.ASCIZ 
.ASCIZ 


*%A/D " 

" ON CHAN " 


052514 


020104 
020105 


P3: 


. ASCIZ 


"; OLD VALUE = " 


051515 
040505 


000040 
020113 


P4: 
P5: 


. ASCIZ 
. BYTE 
• ASCIZ 


"RMS " 
"PEAK " 


044517 
000040 


42523 


P6 : 


. ASCIZ 

• BYTE 
-ASCIZ 

-ASCIZ 


"NOISE = " 


032456 
024502 


020060 
000 

020 8S8 


P7: 

P8: 


"0.50 LSB ) " 
"2-00 LSB)* 


042516 
052514 
000 
040522 
047125 


mm 


P9: 


-ASCIZ 


" HEM VILUE = " 


040520 
020104 


P13: 


-ASCIZ 


"WRAPAROUND " 


051122 


051117 


P15: 


. ASCIZ"ERROR" 


052111 


020130 
046050 
036440 


value: 


. ASCIZ 


"X.XX LSB (LIMIT 



RECSAM: 

olds: 
news: 
chann: 



• WORD 
. BLKfe 

• WORD 
-END 



? USED TO STORE A/D RESULTS ON UP TO 64. CHANS. 
;USED FOR STORE OF ASCIT OF OLD SAMPLE VALUE. 
; TJSPD FOR STORE OF ASCII NEW SAMPLE VALHE- 
;USED FOR STORAGE OF ASCII OF CHAN. NUMBER. 
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ABR 

ACSR 

AOBR 

ADDR 
ADDR22= 
ADPIU 
ADRMS1 
A OS R 



APKLIH 

APKX 
ARMLIM 

ARMX 

ASB 

ASR 

ASTAT 

AVER 

AWAS 

BEGIN 



BIT 

BITO = 
BIT1 = 
BIT10 = 
BIT11 = 
BIT12 = 
BIT13 = 
BIT14 = 
BIT15 = 
BIT2 = 
BIT3 = 

im i 

BIT* = 

BTT7 = 
BITS = 
BIT9 = 
BREAKS 5 
BRi 
BR2 

BTODS = 
CCH 

CDATAS= 

CHANN 

CLSTCH 

CONFIG 

CONV 

CSRA 

DAC 

DATCKS= 

DATERS= 
DECTM 



80240R 
0102R 



000006R 

001000 

001460R 

mmt 

000262R 
000260R 
00Q256R 
000254R 

mm 

000104R 
002 372 R 
000110R 
0OOO00R 



002130R 

000001 

000002 

002000 

004000 

010000 

020000 

mm 

000004 
000010 



000100 
000200 

mm 

104407 

000012R 

000013R 

0002?Jr 
104412 
003502R 
000224R 

mm 

000100R 
000234R 

1044^4 
002740R 



mt 



463* 

m** 


768* 
483* 
449 


832* 
513* 
504 


536* 
50 8 


878* 
533 


556 


569 


696 


777 


841 


843 


845 


848 
373 
























637* 
























m* 

394 
649* 
382 
624* 


409 
531* 
833* 
650 

625 


430* 


in 

878 


439 
557* 


440* 
566* 


448* 
598* 


m: 


479 
642* 


482 
689* 


483 
762* 


506* 
769* 


«|. 


465* 
879* 


471 


476 


477* 


766* 


770* 


830* 


834* 








382 
503 

ili 

786 
419 
677 


m 

m 


417 
516 

690 
884 


418 

131 

893 


433 
532 
717 


434 

539 
725 


443 
544 
733 


445 
554 
739 


469 
555 
745 


470 
567 
775 


4B6 
595 
801 


493 
631 

805 


460 


565 


666 


759 


762 


823 


826 










662 
























464 

565 


769 


833 




















417 

605 


418 


433 


434 


469 


470 


502 


503 


554 


555 






382 
558* 


394 
563 


8B4 
579 


583* 


584 


586 


679* 


6B1 


686 


704 


717 


741* 


893 
586 


903 
681 


912 


925 


931 


943 


986» 












781 

438* 

618 


482* 
643 


512* 


535* 


877* 
















387 


388 


389 


394 


398 


399 


400 


884 


887 


888 


889 


898» 



ADCB DEC/X11 SYSTEM EXERCISER MODULE 
XADCBO. Pli 12-OCT-78 11:44 



EDGE 

ENDP 

ENDS - 
ERCOM 

fft^TYP 

m s - 

GETPA$= 
GWBUF$= 
H ROC NT 

S§BISi= 

I CO NT 

1COUNT 

I ON UN 

INIT 

INTPLG 

INTR 

LQGl 

LQG2 

LOG3 

LOG4 

LOGS 

L0G6 

L0G7 

MAP22S= 

MOON AM 

MODSP 



000250R 

dp 

104410 
002646R 

hum 
mm, 
mm 
mm* 

000050R 
000036R 

\m 

mm 

000426R 

mMl 

000724R 
0010 24 H 

ilooioR 

000224R 

\m 

~2746R 
~006R 
024R 




104420 
000034R 

mm* 

005726 

"888 



NACY11 30AU052) 12-OCT- 
CROSS REFERENCE TABLE — 



537* 



till 

480 

m 



330# 
633 




610 

IW 

486 
982* 

m 

725 

Mi* 



78 16:16 PAGE 23 
USER SYMBOLS 



8T IP* 799 * 

752* 753* 754 
631 656 801 



784* 



739 


805 


808 








613 


636 


671* 


672 


674* 


893 


516 


539 


631 


656 


801 




m 

733 


m 

893 




ih 


312 
332# 


313 


IS! 


693 


775 


839 
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PRTYO = 000000 332# 
PRTY1 = 000040 332# 
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ggg 



CROSS REFERENCE TABLE 



USER SYMBOLS 



332* 
332f 



mm 



6O3072R 
003104R 



104417 

000Q54R 

003262R 



If, «* 



913 
940 

r 

939 
921 
915 
388* 
399* 
964» 
829 



615 

588 



952# 
954| 



389* 
400* 



707 

5988 



97Qf 
930 



908 
917 



959* 
961* 



330 
419 



871# 



370» 
879 




ADCB DEC/X11 
XADCBO.Pll 



TMP 

TRPDFD= 

VALUE 

VECTOR 

WAINT 

WASIDR 

WDFR 

WDTD 

mo 

WRPERR 

XFLAG 
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35 8 f 
332# 

iii* 

604 
320# 



i 
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§«: 

616* 

790 



641* 
796S 



SEQ 0023 
642 



986 # 



000000 
003512 



000 
001 



ERRORS DETECTED: 

DEFAULT GLOBALS GENERATED: 

XADCB0,XADCB0/SOL/CRP:SYH=DDXCOH,XADCB0 
RUN-TIME: 2 2 .3 SECONDS 
RUN-TIME RATIO: 29/5=5.1 
CORE USED: 7K " A 



(13 PAGES) 



